home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 March / PCWorld_2002-03_cd.bin / Software / TemaCD / xteq / setup.exe / {app} / plugins / Xifa Gku 1.xpl < prev    next >
Text File  |  2000-10-03  |  2KB  |  93 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="1"
  3. "COUNT"="3"
  4. "UIPATH"="Internet\Instant Messaging\Gku"
  5. "NAME"="User Details"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="User Number"
  8. "TEXT 2"="User Name"
  9. "TEXT 3"="Password"
  10. "DESCRIPTION 1"="These are your current user details. Since Gku offers no ability at the moment to edit these options, they are provided here."
  11. "DESCRIPTION 2"="Blanking out all of these options will force Gku to re-register you."
  12. "DESCRIPTION 3"="The password is not encrypted; I haven't yet got the code figured out!"
  13. "DESCRIPTION 4"="Gku may be obtained at http://lockergnome.virtualave.net"
  14. "COMMENT 1"="For more information, go to http://www.xteq.com."
  15. "COMMENT 2"="Thanks to CptSiskoX for the settings and the idea."
  16. "COMMENT 3"="Thanks also to Vex, the maker of Gku."
  17. "VERSION"="3.00"
  18. "AUTHOR"="Vex Bit <vex@xifa.fsnet.co.uk>"
  19. "COPYRIGHT"="Copyright ⌐ 1999-2000, Xifa Technologies, Inc."
  20. "CONTACTURL"="http://www.xifa.net"
  21.  
  22.  
  23. 'Declaration of some constants
  24. sFile=""
  25. sSec="UserInfo"
  26. sV1="UsrGku"
  27. sV2="UsrName"
  28. sV3="UsrPass"
  29.  
  30. 'Called when the Plugin is started
  31. SUB Plugin_Initialize
  32.  Call GetGkuFile
  33.  
  34.  If FileExists(sFile) then
  35.  
  36.     s=iniReadValue(sFile,sSec,sV1)
  37.     SetUiElement 1,s
  38.  
  39.     s=iniReadValue(sFile,sSec,sV2)
  40.     SetUiElement 2,s
  41.  
  42.     s=iniReadValue(sFile,sSec,sV3)
  43.     SetUiElement 3,s
  44.  
  45.  else
  46.     Call Disable()
  47.  End if
  48.  
  49. END SUB
  50.  
  51. 'Called when the Plugin should validate the Data the user has entered
  52. SUB Plugin_CheckData(ElementIndex)
  53. END SUB
  54.  
  55. 'Called when the Plugin should apply the changes
  56. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  57.  bOK=False
  58.  
  59.  s=GetUIElement(2)
  60.  if len(S)>0 then
  61.     if IsNumeric(s)=true then
  62.        Call MsgError("Please enter a number into the field PORT!")
  63.     else
  64.        bOK=True
  65.     end if
  66.  else
  67.     bOK=true
  68.  end if
  69.  
  70.  
  71.  
  72.  if bOK=true then
  73.     s=GetUIElement(1)
  74.     Call iniWriteValue(sFile,sSec,sV1,s)
  75.  
  76.     s=GetUIElement(2)
  77.     Call iniWriteValue(sFile,sSec,sV2,s)
  78.  
  79.     s=GetUIElement(3)
  80.     Call iniWriteValue(sFile,sSec,sV3,s)
  81.  end if
  82. END SUB
  83.  
  84. 'Called when the Plugin is about to be removed from memory
  85. SUB Plugin_Terminate
  86. END SUB
  87.  
  88. 'User defined SUB's
  89. SUB GetGKUFile
  90.    s=iniReadValue("WIN.INI","GKU","InstallDir")
  91.    sFile=s & "\gku.ini"
  92. END SUB
  93.